home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multi-3a / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-03  |  15.3 KB  |  412 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  4. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  5. Begin VB.Form Form1 
  6.    Caption         =   "Multi-Search"
  7.    ClientHeight    =   7290
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   11880
  11.    Icon            =   "Form1.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   7290
  14.    ScaleWidth      =   11880
  15.    StartUpPosition =   2  'CenterScreen
  16.    Visible         =   0   'False
  17.    Begin ComctlLib.Toolbar Toolbar1 
  18.       Height          =   840
  19.       Left            =   0
  20.       TabIndex        =   11
  21.       Top             =   0
  22.       Width           =   11880
  23.       _ExtentX        =   20955
  24.       _ExtentY        =   1482
  25.       ButtonWidth     =   1323
  26.       ButtonHeight    =   1376
  27.       Appearance      =   1
  28.       ImageList       =   "ImageList1"
  29.       _Version        =   327682
  30.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  31.          NumButtons      =   5
  32.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  33.             Caption         =   "Back"
  34.             Key             =   ""
  35.             Description     =   "Back"
  36.             Object.ToolTipText     =   "Go Back"
  37.             Object.Tag             =   ""
  38.             ImageIndex      =   1
  39.          EndProperty
  40.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  41.             Caption         =   "Forward"
  42.             Key             =   ""
  43.             Description     =   "Forward"
  44.             Object.ToolTipText     =   "Go Forward"
  45.             Object.Tag             =   ""
  46.             ImageIndex      =   2
  47.          EndProperty
  48.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  49.             Caption         =   "Stop"
  50.             Key             =   ""
  51.             Description     =   "Stop"
  52.             Object.ToolTipText     =   "Stop"
  53.             Object.Tag             =   ""
  54.             ImageIndex      =   3
  55.          EndProperty
  56.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  57.             Caption         =   "Refresh"
  58.             Key             =   ""
  59.             Description     =   "Refresh"
  60.             Object.ToolTipText     =   "Refresh"
  61.             Object.Tag             =   ""
  62.             ImageIndex      =   4
  63.          EndProperty
  64.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  65.             Caption         =   "Favorites"
  66.             Key             =   ""
  67.             Description     =   "Favorites"
  68.             Object.ToolTipText     =   "Favorites"
  69.             Object.Tag             =   ""
  70.             ImageIndex      =   5
  71.          EndProperty
  72.       EndProperty
  73.    End
  74.    Begin TabDlg.SSTab SSTab1 
  75.       Height          =   5655
  76.       Left            =   120
  77.       TabIndex        =   4
  78.       Top             =   1440
  79.       Width           =   11535
  80.       _ExtentX        =   20346
  81.       _ExtentY        =   9975
  82.       _Version        =   393216
  83.       Tabs            =   6
  84.       Tab             =   1
  85.       TabsPerRow      =   4
  86.       TabHeight       =   520
  87.       TabCaption(0)   =   "Yahoo"
  88.       TabPicture(0)   =   "Form1.frx":030A
  89.       Tab(0).ControlEnabled=   0   'False
  90.       Tab(0).Control(0)=   "WebBrowser(0)"
  91.       Tab(0).ControlCount=   1
  92.       TabCaption(1)   =   "Infoseek"
  93.       TabPicture(1)   =   "Form1.frx":0326
  94.       Tab(1).ControlEnabled=   -1  'True
  95.       Tab(1).Control(0)=   "WebBrowser(1)"
  96.       Tab(1).Control(0).Enabled=   0   'False
  97.       Tab(1).ControlCount=   1
  98.       TabCaption(2)   =   "Altavista"
  99.       TabPicture(2)   =   "Form1.frx":0342
  100.       Tab(2).ControlEnabled=   0   'False
  101.       Tab(2).Control(0)=   "WebBrowser(2)"
  102.       Tab(2).ControlCount=   1
  103.       TabCaption(3)   =   "Lycos"
  104.       TabPicture(3)   =   "Form1.frx":035E
  105.       Tab(3).ControlEnabled=   0   'False
  106.       Tab(3).Control(0)=   "WebBrowser(3)"
  107.       Tab(3).ControlCount=   1
  108.       TabCaption(4)   =   "HotBot"
  109.       TabPicture(4)   =   "Form1.frx":037A
  110.       Tab(4).ControlEnabled=   0   'False
  111.       Tab(4).Control(0)=   "WebBrowser(4)"
  112.       Tab(4).ControlCount=   1
  113.       TabCaption(5)   =   "MSN"
  114.       TabPicture(5)   =   "Form1.frx":0396
  115.       Tab(5).ControlEnabled=   0   'False
  116.       Tab(5).Control(0)=   "WebBrowser(5)"
  117.       Tab(5).ControlCount=   1
  118.       Begin SHDocVwCtl.WebBrowser WebBrowser 
  119.          Height          =   4575
  120.          Index           =   0
  121.          Left            =   -74760
  122.          TabIndex        =   5
  123.          Top             =   840
  124.          Width           =   10935
  125.          ExtentX         =   19288
  126.          ExtentY         =   8070
  127.          ViewMode        =   1
  128.          Offline         =   0
  129.          Silent          =   0
  130.          RegisterAsBrowser=   0
  131.          RegisterAsDropTarget=   1
  132.          AutoArrange     =   -1  'True
  133.          NoClientEdge    =   0   'False
  134.          AlignLeft       =   0   'False
  135.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  136.          Location        =   ""
  137.       End
  138.       Begin SHDocVwCtl.WebBrowser WebBrowser 
  139.          Height          =   4575
  140.          Index           =   1
  141.          Left            =   240
  142.          TabIndex        =   6
  143.          Top             =   840
  144.          Width           =   10815
  145.          ExtentX         =   19076
  146.          ExtentY         =   8070
  147.          ViewMode        =   1
  148.          Offline         =   0
  149.          Silent          =   0
  150.          RegisterAsBrowser=   0
  151.          RegisterAsDropTarget=   1
  152.          AutoArrange     =   -1  'True
  153.          NoClientEdge    =   0   'False
  154.          AlignLeft       =   0   'False
  155.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  156.          Location        =   ""
  157.       End
  158.       Begin SHDocVwCtl.WebBrowser WebBrowser 
  159.          Height          =   4575
  160.          Index           =   4
  161.          Left            =   -74760
  162.          TabIndex        =   7
  163.          Top             =   840
  164.          Width           =   10935
  165.          ExtentX         =   19288
  166.          ExtentY         =   8070
  167.          ViewMode        =   1
  168.          Offline         =   0
  169.          Silent          =   0
  170.          RegisterAsBrowser=   0
  171.          RegisterAsDropTarget=   1
  172.          AutoArrange     =   -1  'True
  173.          NoClientEdge    =   0   'False
  174.          AlignLeft       =   0   'False
  175.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  176.          Location        =   ""
  177.       End
  178.       Begin SHDocVwCtl.WebBrowser WebBrowser 
  179.          Height          =   4575
  180.          Index           =   2
  181.          Left            =   -74760
  182.          TabIndex        =   8
  183.          Top             =   840
  184.          Width           =   10935
  185.          ExtentX         =   19288
  186.          ExtentY         =   8070
  187.          ViewMode        =   1
  188.          Offline         =   0
  189.          Silent          =   0
  190.          RegisterAsBrowser=   0
  191.          RegisterAsDropTarget=   1
  192.          AutoArrange     =   -1  'True
  193.          NoClientEdge    =   0   'False
  194.          AlignLeft       =   0   'False
  195.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  196.          Location        =   ""
  197.       End
  198.       Begin SHDocVwCtl.WebBrowser WebBrowser 
  199.          Height          =   4575
  200.          Index           =   3
  201.          Left            =   -74760
  202.          TabIndex        =   9
  203.          Top             =   840
  204.          Width           =   10935
  205.          ExtentX         =   19288
  206.          ExtentY         =   8070
  207.          ViewMode        =   1
  208.          Offline         =   0
  209.          Silent          =   0
  210.          RegisterAsBrowser=   0
  211.          RegisterAsDropTarget=   1
  212.          AutoArrange     =   -1  'True
  213.          NoClientEdge    =   0   'False
  214.          AlignLeft       =   0   'False
  215.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  216.          Location        =   ""
  217.       End
  218.       Begin SHDocVwCtl.WebBrowser WebBrowser 
  219.          Height          =   4575
  220.          Index           =   5
  221.          Left            =   -74760
  222.          TabIndex        =   10
  223.          Top             =   840
  224.          Width           =   10935
  225.          ExtentX         =   19288
  226.          ExtentY         =   8070
  227.          ViewMode        =   1
  228.          Offline         =   0
  229.          Silent          =   0
  230.          RegisterAsBrowser=   0
  231.          RegisterAsDropTarget=   1
  232.          AutoArrange     =   -1  'True
  233.          NoClientEdge    =   0   'False
  234.          AlignLeft       =   0   'False
  235.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  236.          Location        =   ""
  237.       End
  238.    End
  239.    Begin VB.Frame Frame1 
  240.       Height          =   615
  241.       Left            =   120
  242.       TabIndex        =   0
  243.       Top             =   600
  244.       Width           =   11655
  245.       Begin VB.CommandButton Command1 
  246.          Caption         =   "&Search"
  247.          Default         =   -1  'True
  248.          Height          =   255
  249.          Left            =   10200
  250.          TabIndex        =   3
  251.          Top             =   240
  252.          Width           =   1215
  253.       End
  254.       Begin VB.TextBox txtsearch 
  255.          Height          =   285
  256.          Left            =   960
  257.          TabIndex        =   2
  258.          Top             =   240
  259.          Width           =   8775
  260.       End
  261.       Begin VB.Label Label1 
  262.          Caption         =   "Search For:"
  263.          Height          =   255
  264.          Left            =   120
  265.          TabIndex        =   1
  266.          Top             =   240
  267.          Width           =   1815
  268.       End
  269.    End
  270.    Begin ComctlLib.ImageList ImageList1 
  271.       Left            =   5160
  272.       Top             =   0
  273.       _ExtentX        =   1005
  274.       _ExtentY        =   1005
  275.       BackColor       =   -2147483643
  276.       ImageWidth      =   32
  277.       ImageHeight     =   32
  278.       MaskColor       =   12632256
  279.       _Version        =   327682
  280.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  281.          NumListImages   =   5
  282.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  283.             Picture         =   "Form1.frx":03B2
  284.             Key             =   ""
  285.          EndProperty
  286.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  287.             Picture         =   "Form1.frx":06CC
  288.             Key             =   ""
  289.          EndProperty
  290.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  291.             Picture         =   "Form1.frx":09E6
  292.             Key             =   ""
  293.          EndProperty
  294.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  295.             Picture         =   "Form1.frx":0D00
  296.             Key             =   ""
  297.          EndProperty
  298.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  299.             Picture         =   "Form1.frx":101A
  300.             Key             =   ""
  301.          EndProperty
  302.       EndProperty
  303.    End
  304. Attribute VB_Name = "Form1"
  305. Attribute VB_GlobalNameSpace = False
  306. Attribute VB_Creatable = False
  307. Attribute VB_PredeclaredId = True
  308. Attribute VB_Exposed = False
  309. '               MULTI-SEARCH
  310. '****************************************************
  311. ' A simple application using Multiple Webbrowsers.
  312. ' With this application you can see how easy it is
  313. ' to generate a Multi-Seach Engine Program.
  314. ' Just replace the proper variables and viola.
  315. ' This program is 100% Working.
  316. '*****************************************************
  317. ' Original Code and Idea Created By:  TECO (aka T. Teed)
  318. ' Email:  teco@tecotown.com
  319. '******************************************************
  320. ' Modified and Enhanced By: Chad Smith
  321. ' Email:  chads@sisna.com
  322. '*******************************************************
  323. ' CoolBar Code By: Damian Janowski - E-mail: jano@sinai.com.ar
  324. '*****************************************************
  325.   'Toolbar Const
  326.   Private Const WM_USER = &H400
  327.   Private Const TBSTYLE_TRANSPARENT = &H8000
  328.   Private Const TBSTYLE_FLAT = &H800
  329.   Private Const TB_SETSTYLE = (WM_USER + 56)
  330.   Private Const TB_GETSTYLE = (WM_USER + 57)
  331.   Private Const TBSTYLE_LIST = &H1000
  332.   Private Const CCS_NODIVIDER = &H40
  333.   Private Declare Function FindWindowEx Lib "user32" _
  334.           Alias "FindWindowExA" _
  335.           (ByVal hWnd1 As Long, _
  336.           ByVal hWnd2 As Long, _
  337.           ByVal lpsz1 As String, _
  338.           ByVal lpsz2 As String) As Long
  339.   Private Declare Function SendTBMessage Lib "user32" _
  340.           Alias "SendMessageA" _
  341.           (ByVal hwnd As Long, _
  342.           ByVal wMsg As Long, _
  343.           ByVal wParam As Integer, _
  344.           ByVal lParam As Any) As Long
  345. Public Sub MakeToolbarFlat(Tb As Object)
  346.   Dim Style As Long
  347.   Dim lRet As Long
  348.   Dim ToolbarHandle As Long
  349.   ToolbarHandle = FindWindowEx(Tb.hwnd, 0&, "ToolbarWindow32", vbNullString)
  350.   Style = SendTBMessage(ToolbarHandle, TB_GETSTYLE, 0&, 0&)
  351.   Style = Style Or TBSTYLE_FLAT Or TBSTYLE_TRANSPARENT Or CCS_NODIVIDER
  352.   lRet = SendTBMessage(ToolbarHandle, TB_SETSTYLE, 0, Style)
  353.   Tb.Refresh
  354. End Sub
  355. Private Sub Command1_Click()
  356. 'This is where we get the search criteria
  357. 'then we replace spaces with + signs
  358. Let thesearch = txtsearch.Text
  359. Dim i As Integer
  360. Let i = 1
  361. While i <= Len(thesearch)
  362.  If Mid(thesearch, i, 1) = " " Then
  363.   Mid(thesearch, i, 1) = "+"
  364.  End If
  365.  i = i + 1
  366. 'Send Information to Webbrowsers and load criteria
  367. WebBrowser(0).Navigate "http://ink.yahoo.com/bin/query?p=" & thesearch & "&hc=0&hs=0"
  368. WebBrowser(1).Navigate "http://infoseek.go.com/Titles?qt=" & thesearch & "&col=WW&sv=IS&lk=noframes&svx=home_searchbox"
  369. WebBrowser(2).Navigate "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&q=" & thesearch
  370. WebBrowser(3).Navigate "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" & thesearch
  371. WebBrowser(4).Navigate "http://www.hotbot.com/?MT=" & thesearch & "&SM=MC&DV=0&LG=any&RD=RG&DC=10&DE=2&_v=2&OPs=MDRTP"
  372. WebBrowser(5).Navigate "http://search.msn.com/spbasic.htm?MT=" & thesearch
  373. End Sub
  374. Private Sub Form_Load()
  375. 'Initialize Each Browser's Search Engine
  376. WebBrowser(0).Navigate "http://www.yahoo.com"
  377. WebBrowser(1).Navigate "http://www.infoseek.com"
  378. WebBrowser(2).Navigate "http://www.altavista.com"
  379. WebBrowser(3).Navigate "http://www.lycos.com"
  380. WebBrowser(4).Navigate "http://www.hotbot.com"
  381. WebBrowser(5).Navigate "http://search.msn.com"
  382. Call MakeToolbarFlat(Toolbar1)
  383. End Sub
  384. Private Sub Form_Unload(Cancel As Integer)
  385.  'Thank You and Goodbye Message / Contact Information
  386.  msg = "Thank You For Using Multi-Search"
  387.  msg = msg & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Program Enhanments by Chad Smith (chads@sisna.com)"
  388.  msg = msg & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Original Code and Idea by Teco (teco@tecotown.com)"
  389.  sstyle = vbInformation
  390.  ttitle = "Multi-Search"
  391.  MsgBox msg, sstyle, ttitle
  392. End Sub
  393. Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
  394. On Error Resume Next
  395. Select Case Button
  396. Case "Back"
  397.     WebBrowser(SSTab1.Tab).GoBack
  398. Case "Forward"
  399.     WebBrowser(SSTab1.Tab).GoForward
  400. Case "Stop"
  401.     WebBrowser(SSTab1.Tab).Stop
  402. Case "Refresh"
  403.     WebBrowser(SSTab1.Tab).Refresh
  404. Case "Favorites"
  405. End Select
  406. End Sub
  407. Private Sub txtsearch_GotFocus()
  408. 'Highlight The Search Criteria for Easy Adjustments
  409. txtsearch.SelStart = 0
  410. txtsearch.SelLength = Len(txtsearch.Text)
  411. End Sub
  412.